home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / c / flashpc.exe / TCSETS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-03-25  |  1.2 KB  |  51 lines
  1. program sets(input,output);
  2. const
  3.    NUM_SETS   = 2;
  4.  
  5.    SetNames  : Array[1..NUM_SETS] Of String =  (
  6.                    ' 1  - valid char set                            ',
  7.                    ' 2  - terminating char set                      ');
  8.  
  9.    Tbl       : Array[1..NUM_SETS] Of Set Of 0..255 = (
  10.  
  11.    {- VCSet -}
  12.              [32..255],
  13.  
  14.    {- TCSet -}
  15.              [  9,             { Tab         }
  16.                13,             { Enter       }
  17.                15,             { Shft-Tab    }
  18.                68 ] );         { F10         }
  19.  
  20. Var
  21.    SetArray1,
  22.    SetArray2 : Array[1..32] Of Byte;
  23.    i,j,k,l,m : Integer;
  24.  
  25. Begin
  26.  
  27.    for j := 1 To NUM_SETS Do Begin
  28.  
  29.  
  30.       Move( Tbl[j], SetArray1, 32 );
  31.       FillChar( SetArray2, 32, 0 );
  32.       For i := 1 To 32 Do Begin
  33.          l := 7;
  34.          For k := 0 To 7 Do Begin
  35.             If (SetArray1[i] And ( 1 Shl k ) <> 0) Then
  36.                SetArray2[i] := SetArray2[i] Or ( 1 Shl l );
  37.             l := l - 1;
  38.          End;
  39.       End;
  40.  
  41.       Writeln('/* Set',SetNames[j],' */');
  42.       for k := 0 to 3 do begin
  43.          for l := 1 to 8 do
  44.             Write(SetArray2[k*8+l]:3,',');
  45.          writeln;
  46.       End;
  47.       writeln;
  48.       writeln;
  49.    End;
  50. end.
  51.